home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
window2a
/
modcallb.bas
< prev
next >
Wrap
BASIC Source File
|
1999-09-06
|
1KB
|
30 lines
Attribute VB_Name = "modCallBack"
Option Explicit
' Name: Windows Information Viewer
' Author: Chong Long Choo
' Date: 06 September 1999
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public objListTop As clsWinView
Public Function CallBack_EnumWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
frmWinView.lstTopLevelWin.AddItem objListTop.GetWindowDesc(hwnd)
CallBack_EnumWindows = 1 ' Continue enumeration
End Function
Public Function CallBack_EnumOwnedWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
If GetParent(hwnd) = lpData Then
frmWinView.lstOwnedWin.AddItem objListTop.GetWindowDesc(hwnd)
End If
CallBack_EnumOwnedWindows = 1 ' Continue enumeration
End Function
Public Function CallBack_EnumChildWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
If GetParent(hwnd) = lpData Then
frmWinView.lstChildWin.AddItem objListTop.GetWindowDesc(hwnd)
End If
CallBack_EnumChildWindows = 1 ' Continue enumeration
End Function